home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 May: Tool Chest / Developer CD Series Tool Chest (Apple Computer)(May 1999).iso / Tool Chest / Development Kits / MPW etc / Miscellaneous / WorkSets / WorkSets.menu / Scripts / WorkSets•Update
Encoding:
Text File  |  1996-03-20  |  1.9 KB  |  49 lines  |  [TEXT/MPS ]
  1. # ************************************************************
  2. # 
  3. #     WorkSets•Update
  4. #     Updates each workset menu item in the Files menu
  5. #     with the new list of files.
  6. #     To be used with UserStartup•WorkSets.menu.
  7. # 
  8. #     Copyright Apple Computer,Inc.  1996
  9. #     All rights reserved
  10. # 
  11. # ************************************************************
  12.  
  13. Set CurrentDir `Directory`
  14. Directory "{MPW}WorkSets:"
  15. For EachFile in `Files -s`
  16.     AddMenu WorkSetsEdit "{EachFile}" "Open ∂'{MPW}WorkSets:{EachFile}∂'"
  17.     AddMenu WorkSetsRemove "{EachFile}" " ∂
  18.         Set Exit 0 ; ∂
  19.         (Close -y ∂"{MPW}WorkSets:{EachFile}∂") ∑ Dev:Null ; ∂
  20.         (Delete -i ∂"{MPW}WorkSets:{EachFile}∂") ∑ Dev:Null ; ∂
  21.         DeleteMenu WorkSetsEdit ∂"{EachFile}∂"; ∂
  22.         DeleteMenu WorkSetsRemove ∂"{EachFile}∂"; ∂
  23.         DeleteMenu WorkSetsOpen ∂"{EachFile}∂"; ∂
  24.         DeleteMenu WorkSetsClose ∂"{EachFile}∂"; ∂
  25.         DeleteMenu WorkSetsShow ∂"{EachFile}∂"; ∂
  26.         DeleteMenu WorkSetsHide ∂"{EachFile}∂"; ∂
  27.         WorkSets•Update; ∂
  28.         "
  29.     AddMenu WorkSetsOpen "{EachFile}" "(Open ∂`Catenate ∂'{MPW}WorkSets:{EachFile}∂'∂`) ∑ Dev:Null"
  30.     AddMenu WorkSetsClose "{EachFile}" "(Close -y ∂`Catenate ∂'{MPW}WorkSets:{EachFile}∂'∂`) ∑ Dev:Null"
  31.     AddMenu WorkSetsShow "{EachFile}" "(ShowWindows ∂`Catenate ∂'{MPW}WorkSets:{EachFile}∂'∂`) ∑ Dev:Null"
  32.     AddMenu WorkSetsHide "{EachFile}" "(HideWindows ∂`Catenate ∂'{MPW}WorkSets:{EachFile}∂'∂`) ∑ Dev:Null"
  33. End
  34.  
  35. AddMenu File '(-5' ''
  36. AddMenu -link File 'Edit WorkSet' WorkSetsEdit
  37. AddMenu -link File 'Remove WorkSet' WorkSetsRemove
  38. AddMenu File '(-6' ''
  39. AddMenu -link File 'Open WorkSet' WorkSetsOpen
  40. AddMenu -link File 'Close WorkSet' WorkSetsClose
  41. AddMenu -link File 'Show WorkSet' WorkSetsShow
  42. AddMenu -link File 'Hide WorkSet' WorkSetsHide
  43.  
  44. #    Repeat these to work around a bug with "AddMenu" and links.
  45. AddMenu -link File 'Edit WorkSet' WorkSetsEdit
  46. AddMenu -link File 'Remove WorkSet' WorkSetsRemove
  47.  
  48. Directory "{CurrentDir}"
  49.